Amiga Format CD 41/Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso/-seriously_amiga-/sound/wavetracer/doc/developer/sources/schieber.mod

Text File | 1999-04-19 | 864 b | 17 lines

procedure CREATEPROPGAD(LEdge,TEdge,XSet,XJump,GadNum,IDOffset :word; XWindow :Window);

begin
   with MyWTStdMsg^ do begin
      SImage[GadNum]:=WTImg^.KnobImg^;
      Schieber[GadNum]:=Gadget(NIL,LEdge,TEdge,320,15,GADGHCOMP+GADGIMAGE,$83,PROPGADGET,
                               ^SImage[GadNum],NIL,Nil,0,^Schieberinfo[GadNum],IDOffset+GadNum*2-1,0);
      SchieberInfo[GadNum]:=Propinfo(FREEHORIZ,XSet,0,XJump,0,0,0,0,0,0,0);
      TextGad[GadNum]:=Gadget(NIL,LEdge+332,TEdge+1,60,15,GADGHCOMP,_LONGINT+STRINGCENTER+$1,
                              STRGADGET,NIL,Nil,Nil,0,^TextInfo[GadNum],IDOffset+GadNum*2,0);
      TextInfo[GadNum]:=StringInfo(^Buffer[GadNum],^Undobuffer[GadNum],0,9,0,0,0,0,
                              0,0,Nil,0,Nil);
      UndoBuffer[GadNum]:='';
      MAKEBORDER(XWindow,LEdge+330,TEdge,LEdge+394,TEdge+14,NEGATIVE);
   end;
end;